home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAPStart.dxr / 00017_GTF.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  752 b   |  25 lines
  1. on exitFrame
  2.   global gMainPath, gPathDelimiter, gTargetModule
  3.   set target to the movieName
  4.   set numChars to the number of chars in target
  5.   set targetCheck to char numChars - 3 to numChars of target
  6.   case targetCheck of
  7.     ".exe", ".dir", ".dxr", ".eap":
  8.       delete char numChars - 3 to numChars of target
  9.   end case
  10.   cursor(4)
  11.   if the machineType = 256 then
  12.     set gPathDelimiter to "\"
  13.   else
  14.     set gPathDelimiter to ":"
  15.   end if
  16.   set cdDrive to CheckDrive("Hrwimp.id")
  17.   if target contains "start" then
  18.     set target to "main"
  19.     set gTargetModule to cdDrive & gPathDelimiter & target
  20.   else
  21.     set gTargetModule to cdDrive & gPathDelimiter & target & gPathDelimiter & target
  22.   end if
  23.   go(1, cdDrive & gPathDelimiter & "start")
  24. end
  25.